﻿
Partial Class businessdev_addarticle
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Title As String = "<title>" & txttitle.Text & "</title>"
        Dim metastring As String = "<meta name=""keywords"" content=""" & txttags.Text & """>"

        Dim HtmlBuild As String = "<html lang=""en""> " & _
                                 metastring & _
                                 Title & _
                                 "<body>" & _
                                 txtbody.Text & _
                                "</body> </html>"

        'MsgBox(HtmlBuild)
        'New/Edit Folder title remove special char to -

    End Sub
End Class
